home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / asprog.EXE / FINAL.ASM < prev    next >
Encoding:
Assembly Source File  |  1995-11-06  |  1.5 KB  |  100 lines
  1. ;(c) Copyright 1995 ErsinSoft !
  2.  
  3. code    segment
  4. assume  cs:code,ds:code
  5. org     100h
  6.  
  7. begin:
  8.  
  9.     JMP    SHORT J00105
  10.     NOP
  11.     ADD    [BX+SI],AL
  12. J00105: MOV    WORD PTR CS:[0103h],0BB8h
  13.     MOV    BP ,0032h
  14. J0010F: MOV    AX,BX
  15.     OUT    42h,AL
  16.     MOV    AL,AH
  17.     OUT    42h,AL
  18.     IN    AL,61h
  19.     OR    AL,03h
  20.     OUT    61h,AL
  21.     MOV    CX ,05DCh
  22. J00120: LOOP    J00120
  23.     XCHG    DI,BX
  24.     SUB    DI,+28h
  25.     IN    AL,61h
  26.     AND    AL,252
  27.     OUT    61h,AL
  28.     SUB    WORD PTR CS:[0103h],+02h
  29.     MOV    CX,CS:[0103h]
  30. J00138: LOOP    J00138
  31.     DEC    BP
  32.     JNZ    J0010F
  33.     MOV    WORD PTR CS:[0103h],07D0h
  34.     MOV    BP ,0032h
  35. J00147: MOV    AX,BX
  36.     OUT    42h,AL
  37.     MOV    AL,AH
  38.     OUT    42h,AL
  39.     IN    AL,61h
  40.     OR    AL,03h
  41.     OUT    61h,AL
  42.     MOV    CX ,05DCh
  43. J00158: LOOP    J00158
  44.     XCHG    DI,BX
  45.     SUB    DI,+28h
  46.     IN    AL,61h
  47.     AND    AL,252
  48.     OUT    61h,AL
  49.     SUB    WORD PTR CS:[0103h],+02h
  50.     MOV    CX,CS:[0103h]
  51. J00170: LOOP    J00170
  52.     DEC    BP 
  53.     JNZ    J00147
  54.     MOV    WORD PTR CS:[0103h],03E8h
  55.     MOV    BP ,0032h
  56. J0017F: MOV    AX,BX
  57.     OUT    42h,AL
  58.     MOV    AL,AH
  59.     OUT    42h,AL
  60.     IN    AL,61h
  61.     OR    AL,03h
  62.     OUT    61h,AL
  63.     MOV    CX ,05DCh
  64. J00190: LOOP    J00190
  65.     XCHG    DI,BX
  66.     SUB    DI,+28h
  67.     IN    AL,61h
  68.     AND    AL,252
  69.     OUT    61h,AL
  70.     SUB    WORD PTR CS:[0103h],+02h
  71.     MOV    CX,CS:[0103h]
  72. J001A8: LOOP    J001A8
  73.     DEC    BP
  74.     JNZ    J0017F
  75.     MOV    WORD PTR CS:[0103h],0FA0h
  76.     MOV    BP ,0032h
  77. J001B7: MOV    AX,BX
  78.     OUT    42h,AL
  79.     MOV    AL,AH
  80.     OUT    42h,AL
  81.     IN    AL,61h
  82.     OR    AL,03h
  83.     OUT    61h,AL
  84.     MOV    CX ,05DCh
  85. J001C8: LOOP    J001C8
  86.     XCHG    DI,BX
  87.     SUB    DI,+28h
  88.     IN    AL,61h
  89.     AND    AL,252
  90.     OUT    61h,AL
  91.     SUB    WORD PTR CS:[0103h],+02h
  92.     MOV    CX,CS:[0103h]
  93. J001E0: LOOP    J001E0
  94.     DEC    BP 
  95.     JNZ    J001B7
  96.     MOV    AX ,4C00h
  97.     INT    21h
  98.  
  99. code    ends
  100.         end     begin